﻿Imports System.Text.RegularExpressions

Public Class FuncionesGlobales

    ''' <summary>
    ''' Reemplaza caracteres inválidos dentro de la cadena de texto
    ''' </summary>
    ''' <remarks>Función muy utilizada para impedir SQL INJECTION y caracteres que podrían generar inconsistencias.</remarks>
    ''' <param name="pTexto">Texto a validar</param>
    ''' <returns>Cadena recibida por parámetro pero sin los caracteres considerados inválidos</returns>
    Public Shared Function ValidarTexto(ByVal pTexto As String) As String
        Dim mRetorno As String = String.Empty
        Try
            Dim mRegex As Regex = New Regex("[^0-9a-zA-Z_áéíóúÁÉÍÓÚÑñ@%#|=""\-/[].:;\*\$\s]")
            mRetorno = mRegex.Replace(pTexto, "")

        Catch ex As Exception
            Throw ex

        End Try
        Return mRetorno
    End Function

    ''' <summary>
    ''' Verifica si está correctamente logueado al Fwrk StartFrame.
    ''' </summary>
    ''' <remarks>Esto lo determina por el valor de la propiedad Common.Env.Operador</remarks>
    Public Shared Function LogueadoAlFwrk() As Boolean
        If Common.Env.Operador <> String.Empty Then
            Return True
        Else
            Return False
        End If
    End Function

End Class
